home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / adxprot.int < prev    next >
Text File  |  1996-04-08  |  2KB  |  81 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   ADXPROT.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit ADXProt;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages,
  18.   Classes, Graphics, Controls,
  19.   Forms, Dialogs, StdCtrls,
  20.   AdMisc, AdProtcl;
  21.  
  22. type
  23.   TProtocolOptions = class(TForm)
  24.     GeneralOptions: TGroupBox;
  25.     gWriteFail: TComboBox;
  26.     Label1: TLabel;
  27.     gHonorDirectory: TCheckBox;
  28.     gIncludeDirectory: TCheckBox;
  29.     gRTSLowForWrite: TCheckBox;
  30.     gAbortNoCarrier: TCheckBox;
  31.     ZmodemOptions: TGroupBox;
  32.     zOptionOverride: TCheckBox;
  33.     zSkipNoFile: TCheckBox;
  34.     zRecover: TCheckBox;
  35.     z8K: TCheckBox;
  36.     zFileManagment: TComboBox;
  37.     Label2: TLabel;
  38.     OK: TButton;
  39.     Cancel: TButton;
  40.     KermitOptions: TGroupBox;
  41.     AsciiOptions: TGroupBox;
  42.     Label3: TLabel;
  43.     kBlockLen: TEdit;
  44.     Label5: TLabel;
  45.     kWindows: TEdit;
  46.     Label6: TLabel;
  47.     kTimeout: TEdit;
  48.     Label7: TLabel;
  49.     sInterCharDelay: TEdit;
  50.     Label8: TLabel;
  51.     sInterLineDelay: TEdit;
  52.     sCRTrans: TComboBox;
  53.     Label9: TLabel;
  54.     Label10: TLabel;
  55.     sLFTrans: TComboBox;
  56.     Label11: TLabel;
  57.     sEOFTimeout: TEdit;
  58.     procedure CancelClick(Sender: TObject);
  59.     procedure OKClick(Sender: TObject);
  60.  
  61.   private
  62.     FProtocol : TApdProtocol;
  63.     Executed  : Boolean;
  64.  
  65.   protected
  66.     function GetProtocol : TApdProtocol;
  67.     procedure SetProtocol(NewProtocol : TApdProtocol);
  68.  
  69.   public
  70.     constructor Create(AOwner: TComponent); override;
  71.     destructor Destroy; override;
  72.     function Execute: Boolean;
  73.  
  74.     property Protocol : TApdProtocol
  75.       read GetProtocol write SetProtocol;
  76.   end;
  77.  
  78. var
  79.   ProtocolOptions: TProtocolOptions;
  80.  
  81.